module OptObjeto 
    where
import ExprDataTypes 

optObjeto :: [(TInstruccionAM,Integer)] -> [(TInstruccionAM,Integer)]
optObjeto [] = []
optObjeto ((DUP, num1):(STORE v,num2):(POP,num3):(FETCH z,num4):xs) = [(DUP, num1)] ++ [(STORE v,num2)] ++ optObjeto xs
optObjeto (x:xs) = [x] ++ optObjeto xs 
